0 REM << CD38-6 >>
1 REM COMMODARES PROBLEM #34-4:
2 PRINT" SIX COUPLES"
3 REM SOLUTION BY
4 REM     BILL HOYT
5 REM
10 DIM SP$(2,12),T(12)
20 DATA A,TS,B,,C,YS,D,TD,E,T,F,YT,P,YDS,Q,YTD,R,,S,DS,T,YD,U,S
30 A$="YTDS"
40 FOR N=1 TO 12 : READ SP$(1,N),SP$(2,N) : NEXT N
50 FOR N=1 TO 4 : CT=CT+ASC(MID$(A$,N,1)) : NEXT
60 FOR X=1 TO 12 : VX=0
70 LX=LEN(SP$(2,X)) : IF LX=0 THEN 90
80 FOR N=1 TO LX : VX=VX+ASC(MID$(SP$(2,X),N,1)) : NEXT N
90 T(X)=VX : NEXT X
100 FOR X=1 TO 11 : FOR Y=X+1 TO 12
110 IF T(X)+T(Y)<>CT THEN 140
120 PRINT SP$(1,X)" & "SP$(1,Y)
130 SP$(0,X)="*" : SP$(0,Y)="*"
140 NEXT Y : NEXT X
150 FOR N=1 TO 12 : IF SP$(0,N)<>"*" THEN PRINT SP$(1,N)" UNMATCHED "SP$(2,N)
160 NEXT N